home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / vmb1_11.lha / VMB / VMB-Install < prev    next >
Text File  |  1995-09-03  |  2KB  |  74 lines
  1. ;VMBIS Voice-Mailbox Installer V1.1
  2. ;°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
  3.  
  4. (complete 0)
  5. (set @default-dest "SYS:")
  6.  
  7. ; »»» Text «««
  8.  
  9. (set #Intro-Txt
  10. (cat "\n\nWelcome to \n\n"
  11. "Voice Mailbox V1.1\n\n"
  12. "Installer"
  13. ))(set #Warning-Txt
  14. (cat "Warning !\n\n\n"
  15. "If you don`t have installed ZVT then install it first!\n\n"
  16. "Voice Mailbox V1.1 requires 1 MB free on your disk \n\n"
  17. ))(set #Path-Txt
  18. (cat "Select your ZVT directory. A directory called VMB will "
  19. "be created there."
  20. ))(set #Path-Help
  21. (cat "\nThis section lets you choose the "
  22. "ZVT directory to install Voice Mailbox V1.1. \n\n"
  23. "A directory VMB will be created there.\n\n"
  24. "Default is SYS:\n\n\n"
  25. @askdir-help
  26. ))
  27. (set Assign-Help-Txt
  28. (cat "\nThe User-Startup will be patched \n"
  29. "...\n\n\n"
  30. @startup-help
  31. ))
  32.  
  33. ; »»» Main ««« 
  34.  
  35. (message #Intro-Txt)
  36. (message #Warning-Txt)
  37. (set desti 
  38. (askdir (prompt #Path-Txt) (help #Path-Help) (default @default-dest) (newpath)
  39. ))
  40.  
  41. (set @default-dest desti)
  42. (makedir (tackon desti "VMB"))
  43. (copyfiles
  44. (prompt "Copying to " #desti)
  45. (help @copy-files-help)
  46. (source "")
  47. (dest (tackon desti "VMB"))
  48. (pattern "#?")
  49. )
  50. (complete 80)
  51. (run (cat "copy " "VMBDAT/VMBd \"" desti "/VMB.info""\""))
  52. (run (cat "copy " "VMBDAT/VMB.set \"" desti "/ZVT.Settings""\""))
  53. ; »»» StartupSequence «««
  54.  
  55. (complete 95)
  56.  
  57. (startup "VMB"
  58.     (prompt "Some required commands will be added to your \"s:user-startup\" file.")
  59.     (help @startup-help)
  60.     (command "if exists \"" desti "/VMB""\"\n")
  61.     (command "   assign VMB: \"" desti "/VMB""\"\n")
  62.     (command "endif""\n")
  63. )
  64.  
  65. ; »»» Finished «««
  66.  
  67. (complete 100)
  68.  
  69. (exit "Thank you for using the VMB Installer.\n"
  70.     "We appreciate your business.\n\n"                  
  71.         "No Carrier...\n"                                 
  72.     "CLICK.\n\n\n"                                          
  73.     "Please reboot your computer before trying to start VMB.")
  74.